program test;
procedure hipotenusa(a, b : integer; var hipotenusa : real);
begin
	hipotenusa := sqrt(Exp(2*Ln(a)) + Exp(2*Ln(b)));
end;

var
	c : real;

begin
	hipotenusa(4, 6, c);
	writeln(c);
end.
